From 840f481ca4f3358dc9e5204a3542d69ae6c41422 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 25 May 1993 20:46:16 +0000 Subject: [PATCH] (Fforward_comment): Arg is a Lisp_Object. Convert it to an int. --- src/syntax.c | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/src/syntax.c b/src/syntax.c index 2ade690b274..4ffc7d7eea3 100644 --- a/src/syntax.c +++ b/src/syntax.c @@ -570,7 +570,7 @@ Stop scanning if we find something other than a comment or whitespace.\n\ If N comments are found as expected, with nothing except whitespace\n\ between them, return t; otherwise return nil.") (count) - int count; + Lisp_Object count; { register int from; register int stop; @@ -578,6 +578,10 @@ between them, return t; otherwise return nil.") register enum syntaxcode code; int comstyle = 0; /* style of comment encountered */ int found; + int count1; + + CHECK_NUMBER (count, 0); + count1 = XINT (count); immediate_quit = 1; QUIT; @@ -585,7 +589,7 @@ between them, return t; otherwise return nil.") from = PT; found = from; - while (count > 0) + while (count1 > 0) { found = from; stop = ZV; @@ -646,10 +650,10 @@ between them, return t; otherwise return nil.") } /* End of comment reached */ - count--; + count1--; } - while (count < 0) + while (count1 < 0) { found = from; @@ -821,7 +825,7 @@ between them, return t; otherwise return nil.") } } - count++; + count1++; } SET_PT (from); -- 2.30.2